Takto můžete vytvořit alternativní záznam
typ muint64 = záznam
booleovský případ
true: (i64: int64);
false: (lo32, hi32: cardinal);
konec;
Nyní stačí použít kardinály k vyplnění vašeho uint64 nepodepsanými daty.
Druhou možností by bylo použít tento kód:
const almostmaxint64 = 800000045000000 $;
var muint64: int64;
začít
muint64: = téměřmaxint64;
muint64: = muint64 shl 1;
konec
|
Bez podpory kompilátoru nemáte mnoho možností.
Předpokládám, že chcete předat hodnotu funkci v nějaké externí DLL. Budete muset deklarovat parametr jako 64bitové celé číslo se znaménkem, Int64. Pak vše, co můžete udělat, je předat podepsanou hodnotu, která má stejný bitový vzor jako požadovaná nepodepsaná hodnota. Vytvořte si malý nástroj pro převod s kompilátorem, který podporuje nepodepsaná 64bitová celá čísla.
|
Tradičně implementace Broland utrpěly problémy s interoperabilitou, protože cílová platforma nepodporovala největší nepodepsané. Pamatuji si, že jsem místo DWORD používal hodnoty LongInt a čekal na problémy už od raných dob Turbo Pascal pro Windows. Pak bylo kardinální štěstí, ale ne, D4 představila největší celé číslo Int64 pouze ve své podepsané podobě. Znovu.
Vaše jediná možnost je spolehnout se na podepsaný základní typ Int64 a modlit se ... počkejte, ne, stačí použít Int64Rec typecast k provádění aritmetiky na nejméně a nejvýznamnější části samostatně.
Zpět na konstantní deklaraci:
konst
foo = 8000004200000001 $; // toto bude fungovat, protože hexadecimální notace není svou podstatou podepsána
// deklarovaný symbol foo se však stane podepsanou hodnotou Int64
// pokus o použití desítkové číslice bude mít za následek chybu „Konstanta celého čísla je příliš velká“
// další informace naleznete v tématu „Skutečné konstanty“ v nápovědě D7
procedure TForm1.FormCreate (Sender: TObject);
začít
// jen pro ověření
Titulek: = IntToHex (foo, SizeOf (Int64) * 2);
konec;
Druhým řešením je bohužel změna kompilátoru. Free Pascal vždy synchronizuje podepsané a nepodepsané typy.
Tento úryvek kompiluje a přináší správný výsledek v Borland Delphi verze 15.0 (aka Delphi 7).
|
Tvoje odpověď
StackExchange.ifUsing ("editor", function () {
StackExchange.using ("externalEditor", function () {
StackExchange.using ("snippets", function () {
StackExchange.snippets.init ();
});
});
}, „code-snippets“);
StackExchange.ready (funkce () {
var channelOptions = {
tagy: "" .split (""),
id: "1"
};
initTagRenderer ("". split (""), "" .split (""), channelOptions);
StackExchange.using ("externalEditor", function () {
// Je nutné po úryvcích vypálit editor, pokud jsou úryvky povoleny
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using ("snippets", function () {
createEditor ();
});
}
else {
createEditor ();
}
});
funkce createEditor () {
StackExchange.prepareEditor ({
useStacksEditor: false,
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by \ u003ca href = \" https: //imgur.com/ \ "\ u003e \ u003csvg class = \" svg-icon \ "width = \" 50 \ "height = \" 18 \ "viewBox = \ "0 0 50 18 \" fill = \ "none \" xmlns = \ "http: //www.w3.org/2000/svg \" \ u003e \ u003cpath d = \ "M46.1709 9.17788C46.1709 8.26454 46,2665 7,94324 47,1084 7,58816C47.4091 7,46349 47,7169 7,36433 48,0099 7,26993C48,9099 6,97977 49,672 6,73443 49,672 5,93063C49,672 5,22043 48,9832 4,61182 48,1414 4,61182C47,4335 4,61182 46,7256 4,91628 4,91650 4,416 43,1481 6,59048V11.9512C43.1481 13,2535 43,6264 13,8962 44,6595 13,8962C45,6924 13,8962 46,1709 13,2535 46,1709 11,9512V9.17788Z \ "/ \ u003e \ u003cpath d = \" M32.492 10,1419432,144,14,144,14,144,44 41,5985 12,6954 41,5985 10,1419V6,59049C41,5985 5,28821 41,1394 4,66232 40,1061 4,66232C39,0732 4,66232 38,5948 5,2881 38,5948 6,59049V9,60062C38,5948 10,8521 38,2696 11,5455 37,0451 11,5455C35,535 521 35,4954 960062V6.59049C35.4954 5,28821 35,0173 4,66232 34,0034 4,66232C32,9703 4,6632 32,492 5,28821 32,492 6,59049V10.1419Z \ "/ \ u003e \ u003cpath fill-rule = \" evenodd \ "clip-rule = \" evenodd \ " = \ "M25.6622 17.6335C27.8049 17.6335 29.3739 16.9402 30.2537 15.6379C30.8468 14.7755 30.9615 13.5579 30.9615 11.9512V6.59049C30.9615 5.28821 30.4833 4.66231 29.4502 4.66231C28.9913 4.66231 28.49.549.549.549.549.54.4550 .1369 4,56087 21,0134 6,57349 21,0134 9,27932C21.0134 11,9852 23,003 13,913 25,3754 13,913C26,5612 13,913 27,4607 13,4902 28,1109 12,6616C28.1109 12,7229 28,1161 12,77,712,123,121,121,121,121,121,121 15.2321 24.1352 14,9821 23,5661 14,7787 C23,176 14,6393 22,8472 14,5218 22,5437 14,5218C21,7977 14,5218 21,2429 15,0123 21,2429 15,6887C21,2429 16,7375 22,9072 17,633525,6622 17,6335ZM24.1317 9,27932C24.1317 7,94324 24,9928 7,09766 26,1024 7,09766C27.2119 7,09766 28,0918 7,94324 28,0918 9,27932C28.0918 10,6321 27,2311 11,5116 26,1024 11,5116C24.9737 11,5116 24,1317 10,1317 M16.8045 11,9512C16,8045 13,2535 17,2637 13,8962 18,2965 13,8962C19,3298 13,8962 19,8079 13,2535 19,8079 11,9512V8.12928C19,8079 5,82936 18,4879 4,62866 16,4027 4,62866C15,1594 4,62866 14,279 4,983758 13,454 13,284 13,454 13,284 13,454 13,284 13,454 13,284 8,57809 4,89931 7,94666 5,5079C7,58314 4,9328 7,10506 4,6632 6,52203 4,663232 C5,47873 4,6632 5 00066 5,28821 5 00066 6,59049V11,9512C5,00066 13,2535 5,47873 13,8962 6,51203 13,8962C7,54479 13,8962 8,7232 8,323 5104 6,91179 10,893 7,58817 10,893 8,94108V11.9512C10,893 13,2535 11,3711 13,8962 12,4044 13,8962C13,4375 13,8962 13,9157 13,2535 13,9157 11,9512V8,90741C13,9157 7,58817 14,3365 6,91179 1 5,4269 6,91179C16.4027 6,91179 16,8045 7,58817 16,8045 8,94108V11.9512Z \ "/ \ u003e \ u003cpath d = \" M3.31675 6,59049C3.31675 5,288821 2,83866 4,66232 1,82471 4,66232C0,791758 4,66232 0,313354,13354,13354,1313 0,791758 13,8962 1,82471 13,8962C2,85798 13,8962 3,31675 13,2535 3,31675 11,9512V6,59049Z \ "/ \ u003e \ u003cpath d = \" M1.87209 0,400291C0,843612 0,4 400291 1,1159 0 1,98861C0 2,87869 0,8228 1,676,97,67 3,57 3,57,87 3,57 3,57,87 3,57 3,57 3,57 3,57 3,57 3,57 3,57 3,57 3,57 3,57 3,57 3,57 3,57 3,57 3,57 3,57 3,57 3,57 3,57 3,57 3,57 3,7234 1,98861C3,7234 1,1159 2,90056 0,400291 1,87209 0,400291Z \ "fill = \" # 1BB76E \ "/ \ u003e \ u003c / svg \ u003e \ u003c / a \ u003e",
contentPolicyHtml: „Uživatelské příspěvky licencovány pod \ u003ca href = \" https: //stackoverflow.com/help/licensing \ "\ u003ecc by-sa \ u003c / a \ u003e \ u003ca href = \" https://stackoverflow.com / legal / content-policy \ "\ u003e (obsahové zásady) \ u003c / a \ u003e",
allowUrls: true
},
onDemand: pravda,
discardSelector: ".discard-answer"
, okamžitěShowMarkdownHelp: true, enableTables: true, enableSnippets: true
});
}
});
Děkujeme, že jste přispěli odpovědí na přetečení zásobníku!
Nezapomeňte na otázku odpovědět. Uveďte podrobnosti a sdílejte svůj výzkum!
Ale vyhnout se ...
Žádáme o pomoc, objasnění nebo reagujeme na další odpovědi.
Dělat prohlášení na základě názoru; podpořte je referencemi nebo osobními zkušenostmi.
Chcete-li se dozvědět více, přečtěte si naše tipy na psaní skvělých odpovědí.
Koncept uložen
Koncept zahozen
Zaregistrujte se nebo se přihlaste
StackExchange.ready (funkce () {
StackExchange.helpers.onClickDraftSave ('# login-link');
});
Zaregistrujte se pomocí Google
Zaregistrujte se pomocí Facebooku
Zaregistrujte se pomocí e-mailu a hesla
Předložit
Zveřejněte jako host
název
E-mailem
Povinné, ale nikdy zobrazené
StackExchange.ready (
funkce () {
StackExchange.openid.initPostLogin ('. New-post-login', 'https% 3a% 2f% 2fstackoverflow.com% 2fquestions% 2f6378107% 2fhow-to-define-an-unsigned-64-bit-integer-in-delphi7% 23new-answer ',' question_page ');
}
);
Zveřejněte jako host
název
E-mailem
Povinné, ale nikdy nezobrazené
Zveřejněte svou odpověď
Vyřadit
Kliknutím na „Odeslat odpověď“ vyjadřujete souhlas s našimi podmínkami služby, zásadami ochrany osobních údajů a zásadami používání souborů cookie
Toto není odpověď, kterou hledáte? Přečtěte si další otázky týkající se značek delphi uint64